home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / 5DAY.SAB < prev    next >
Text File  |  1991-09-16  |  3KB  |  90 lines
  1. SET MESSAGES OFF
  2. LABEL START
  3. CLEAR ALL V
  4. CLS
  5. display cp.dis
  6. write "5DAY.SAB" AT 2,36
  7. WRITE "FIVE DAY QUIT OR PAY NOTICE" AT 4,27
  8. FILLIN Y/N USING "Include Water Bills? (Y/N) [or <ESC>]    " AT 5,1
  9. if y/n = " " then ; goto stop ; endif
  10. IF Y/N = "Y" OR Y/N = "N" THEN ; goto fill ; else ; goto start ; endif
  11. LABEL FILL
  12. FILLIN ADDCODE     USING "Address Code............... -->  " AT 7,1
  13. set v nam to tenant1 in cur.mast where add.code = .addcode
  14. set v adr to address in cur.mast where add.code = .addcode
  15. set v tod to tot.due in cur.mast where add.code = .addcode
  16. set v pfd to fivedate in cur.mast where add.code = .addcode
  17. write .nam at 9,1
  18. write .tod at 9,40
  19. write .adr at 10,1
  20. write "Last Five Day Q.O.P. Issued...... " at 11,1
  21. write .pfd at 11,36
  22. SET V DUEDATE TEXT
  23. FILLIN DUEDATE     USING "Payment Was Due On Or Before -->  " AT 13,1
  24. label agn2
  25. set v nmr to ""
  26. fillin nmr using         "Include This Month's Rent?   -->  " at 14,1
  27. label ask
  28. set v prnt to ""
  29. fillin prnt using        "(P)rint, (R)edo or (Q)uit    -->  " at 15,1
  30.   if prnt = "p" then ; goto print ; endif
  31.   if prnt = "r" then ; cls ; goto fill ; endif
  32.   if prnt = "q" then ; cls ; goto ender ; endif
  33. write "                                                        " at 15,1
  34.   cls ; goto ask
  35. label print
  36. IF Y/N = "Y" THEN
  37. GOTO WATER
  38. ENDIF
  39. set null " "
  40. if nmr = "n" or nmr = "no" then ; goto qopn1 ; endif
  41. OUTPUT PRINTER
  42. PRINT QOP    WHERE ADD.CODE = .ADDCODE
  43. NEWPAGE
  44. PRINT QOP    WHERE ADD.CODE = .ADDCODE
  45. NEWPAGE
  46. GOTO END
  47. label qopn1
  48. out pri
  49. print qopn where add.code = .addcode
  50. newpage
  51. print qopn where add.code = .addcode
  52. newpage
  53. out scr
  54. goto end
  55. LABEL WATER
  56. set null " "
  57. if nmr = "n" or nmr = "no" then ; goto qopn2 ; endif
  58. OUTPUT PRINTER
  59. PRINT QOP2   WHERE ADD.CODE = .ADDCODE
  60. NEWPAGE
  61. PRINT QOP2   WHERE ADD.CODE = .ADDCODE
  62. NEWPAGE
  63. goto end
  64. label qopn2
  65. out pri
  66. print qopn2 where add.code = .addcode
  67. newpage
  68. print qopn2 where add.code = .addcode
  69. newpage
  70. out scr
  71. LABEL END
  72. OUTPUT SCREEN
  73. set null "-0-"
  74. CHANGE QOP TO "Y" IN CUR.MAST WHERE ADD.CODE = .ADDCODE
  75. CHANGE REASON TO "Five Day Q.O.P. Expired Today" IN CUR.MAST WHERE +
  76.    add.code = .addcode
  77. CHANGE REC.CALL TO (.#DATE + 5) IN CUR.MAST WHERE ADD.CODE = .ADDCODE
  78. CHANGE EXP.DATE TO (.#DATE + 15) IN CUR.MAST WHERE ADD.CODE = .ADDCODE
  79. change sus.vac to "5" in cur.mast where add.code = .addcode
  80. change fivedate to .#date in cur.mast where add.code = .addcode
  81. label ender
  82. cls
  83. FILLIN Y/N USING "Would You Like To Run '5DAY.SAB' Again?  " AT 12,19
  84. IF Y/N = "Y" THEN
  85. GOTO START
  86. ENDIF
  87. label stop
  88. return
  89.  
  90.